home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 5: The Fifth Dimension / 17 Bit - The Fifth Dimension (1995)(17 Bit Software)[!].iso / files / 3683.dms / 3683.adf / autoexec.AMOS / autoexec.amosSourceCode next >
AMOS Source Code  |  1995-03-09  |  9KB  |  491 lines
  1. Screen Open 7,640,256,16,Hires : Paper 0 : Ink 9 : Print ""
  2. MAIN:
  3. Limit Mouse 129,50 To 448,296
  4.  Curs Off 
  5. Auto View Off 
  6. Screen Open 0,640,256,16,Hires
  7. Screen Open 1,640,256,16,Hires
  8. Screen Open 2,640,256,16,Hires
  9. Screen Open 3,640,256,16,Hires
  10. Screen Open 4,640,256,16,Hires
  11. Screen Open 5,640,256,16,Hires
  12. Screen Open 6,640,256,16,Hires
  13. 99
  14. Show On 
  15. Auto View On 
  16. Unpack 4 To 7
  17. Paper 6
  18. Curs Off 
  19. Print "Click here for menu."
  20. Menu$(1)=" THE MODERN COMPACT               "
  21. Menu$(1,1)="  READ THIS FIRST               "
  22. Menu$(1,2)="  Read Introduction             "
  23. Menu$(1,3)="  Flick Through the Pages       "
  24. Menu$(1,4)="  View  IFF's as Slideshow.     "
  25. Menu$(1,5)="  Exit                          "
  26. On Menu Proc DIGITISED
  27. On Menu On 
  28. Menu On 
  29. Procedure DIGITISED
  30.    Y=Choice(2)
  31.    If Y=1 Then Goto 881
  32.    If Y=2 Then Goto 876
  33.    If Y=3 Then Goto 202
  34.    If Y=4 Then Goto 203
  35.    If Y=5 Then Stop 
  36. End Proc
  37. Reserve Zone(25)
  38. Set Zone 1,16,12 To 93,43
  39. Set Zone 2,16,57 To 93,89
  40. Set Zone 3,16,108 To 93,139
  41. Set Zone 4,16,163 To 93,197
  42. Set Zone 5,16,213 To 93,245
  43. Set Zone 6,528,16 To 611,47
  44. Set Zone 7,528,63 To 611,94
  45. Set Zone 8,528,112 To 611,142
  46. Set Zone 9,528,164 To 611,195
  47. Set Zone 10,528,214 To 611,243
  48. Do 
  49.    K=Mouse Zone
  50.    T=Mouse Key
  51.    If K=1 and T=1 Then Goto 101
  52.    If K=2 and T=1 Then Goto 102
  53.    If K=3 and T=1 Then Goto 103
  54.    If K=4 and T=1 Then Goto 104
  55.    If K=5 and T=1 Then Goto 105
  56.    If K=6 and T=1 Then Goto 106
  57.    If K=7 and T=1 Then Goto 107
  58.    If K=8 and T=1 Then Goto 108
  59.    If K=9 and T=1 Then Goto 109
  60.    If K=10 and T=1 Then Goto 110
  61. Loop 
  62. Wait Key 
  63. '
  64. '
  65. 202
  66. Fade 13
  67. Unpack 5 To 1
  68. Wait 100
  69. Fade 13
  70. Unpack 6 To 2
  71. Wait 100
  72. Fade 13
  73. Unpack 7 To 1
  74. Wait 100
  75. Fade 13
  76. Unpack 8 To 2
  77. Wait 100
  78. Fade 13
  79. Unpack 9 To 1
  80. Wait 100
  81. Fade 13
  82. Unpack 10 To 2
  83. Wait 100
  84. Fade 13
  85. Unpack 11 To 1
  86. Wait 100
  87. Fade 13
  88. Unpack 12 To 2
  89. Wait 100
  90. Fade 13
  91. Unpack 13 To 1
  92. Wait 100
  93. Fade 13
  94. Unpack 14 To 2
  95. Wait 100
  96. Goto 99
  97. '
  98. 203
  99. Cls : Paper 5 : Print "" : Cls : Locate 0,16 : Centre "** PRESS ANY KEYBOARD KEY FOR NEXT PICTURE **"
  100. Wait Key 
  101. Load Iff "BEAMISH",1
  102. Wait Key 
  103. Fade 13
  104. Load Iff "COSWORTH",2
  105. Wait Key 
  106. Fade 13
  107. Load Iff "HOL",1
  108. Wait Key 
  109. Fade 13
  110. Load Iff "GLASS",2
  111. Wait Key 
  112. Fade 13
  113. Load Iff "PUDDLE",1
  114. Wait Key 
  115. Fade 13
  116. Load Iff "TEIDI",2
  117. Wait Key 
  118. Goto 99
  119. '
  120. '
  121. 101
  122. Fade 13
  123. Wait 50
  124. Unpack 5 To 1
  125. Reserve Zone(25)
  126. Set Zone 11,22,225 To 76,245
  127. Set Zone 12,129,225 To 184,245
  128. Set Zone 13,236,225 To 288,245
  129. Set Zone 14,345,225 To 398,245
  130. Set Zone 15,452,225 To 504,245
  131. Set Zone 16,557,225 To 611,245
  132. 100
  133. Do 
  134.    K=Mouse Zone
  135.    T=Mouse Key
  136.    If K=11 and T=1 Then Fade 13 : Goto 99
  137.    If K=12 and T=1 Then Fade 13 : Goto 102
  138.    If K=13 and T=1 Then Fade 13 : Goto 99
  139.    If K=14 and T=1 Then Goto 150
  140.    If K=15 and T=1 Then Goto 151
  141.    If K=16 and T=1 Then Fade 13 : Goto 152
  142. Loop 
  143. '
  144. 150
  145. M$="Compact:load.Txt" : Paper 1 : Gosub TS : Goto 101
  146. '
  147. 151
  148. M$="Compact:flash.Txt" : Paper 1 : Gosub TS : Goto 101
  149. '
  150. 152
  151. Fade 13
  152. Load Iff "compact:teidi",4
  153. Do 
  154.    T=Mouse Key
  155.    If T<>0 Then Cls : Goto 101
  156. Loop 
  157. Goto 101
  158. '
  159. 102
  160. Fade 13 : Wait 50
  161. Unpack 6 To 2
  162. Reserve Zone(25)
  163. Set Zone 11,22,225 To 76,245
  164. Set Zone 12,129,225 To 184,245
  165. Set Zone 13,236,225 To 288,245
  166. Set Zone 14,345,225 To 398,245
  167. Set Zone 15,452,225 To 504,245
  168. Set Zone 16,557,225 To 611,245
  169. Do 
  170.    K=Mouse Zone
  171.    T=Mouse Key
  172.    If K=11 and T=1 Then Goto 99
  173.    If K=12 and T=1 Then Goto 103
  174.    If K=13 and T=1 Then Goto 101
  175.    If K=14 and T=1 Then Goto 105
  176.    If K=15 and T=1 Then Goto 104
  177.    If K=16 and T=1 Then Goto 153
  178.    Loop 
  179. '
  180. 153
  181. M$="Compact:Bright.Txt" : Paper 1 : Gosub TS : Goto 102
  182. '
  183. '
  184. 103
  185. Fade 13
  186. Wait 50
  187. Unpack 7 To 3
  188. Reserve Zone(25)
  189. Set Zone 11,22,225 To 76,245
  190. Set Zone 12,129,225 To 184,245
  191. Set Zone 13,236,225 To 288,245
  192. Set Zone 14,345,225 To 398,245
  193. Set Zone 15,452,225 To 504,245
  194. Set Zone 16,557,225 To 611,245
  195. Do 
  196.    K=Mouse Zone
  197.    T=Mouse Key
  198.    If K=11 and T=1 Then Goto 99
  199.    If K=12 and T=1 Then Goto 104
  200.    If K=13 and T=1 Then Goto 102
  201.    If K=14 and T=1 Then Goto 156
  202.    If K=15 and T=1 Then Goto 154
  203.    If K=16 and T=1 Then Goto 155
  204. Loop 
  205. '
  206. 154
  207. M$="Compact:features.Txt" : Paper 14 : Gosub TS : Goto 103
  208. '
  209. 155
  210. M$="Compact:focus.Txt" : Paper 14 : Gosub TS : Goto 103
  211. '
  212. 156
  213. M$="Compact:mtce.Txt" : Paper 14 : Gosub TS : Goto 103
  214. '
  215. 104
  216. Fade 13
  217. Wait 50
  218. Unpack 8 To 4
  219. Reserve Zone(25)
  220. Set Zone 11,22,225 To 76,245
  221. Set Zone 12,129,225 To 184,245
  222. Set Zone 13,236,225 To 288,245
  223. Set Zone 14,345,225 To 398,245
  224. Set Zone 15,452,225 To 504,245
  225. Set Zone 16,557,225 To 611,245
  226. Do 
  227.    K=Mouse Zone
  228.    T=Mouse Key
  229.    If K=11 and T=1 Then Goto 99
  230.    If K=12 and T=1 Then Goto 105
  231.    If K=13 and T=1 Then Goto 103
  232.    If K=14 and T=1 Then Goto 107
  233.    If K=15 and T=1 Then Goto 102
  234.    If K=16 and T=1 Then Goto 161
  235. Loop 
  236. '
  237. 161
  238. Fade 13
  239. Load Iff "compact:COSWORTH",4
  240. Do 
  241.    T=Mouse Key
  242.    If T<>0 Then Cls : Goto 104
  243. Loop 
  244. Goto 104
  245. '
  246. 105
  247. Fade 13
  248. Wait 50
  249. Unpack 9 To 5
  250. Reserve Zone(25)
  251. Set Zone 11,22,225 To 76,245
  252. Set Zone 12,129,225 To 184,245
  253. Set Zone 13,236,225 To 288,245
  254. Set Zone 14,345,225 To 398,245
  255. Set Zone 15,452,225 To 504,245
  256. Set Zone 16,557,225 To 611,245
  257. Do 
  258.    K=Mouse Zone
  259.    T=Mouse Key
  260.    If K=11 and T=1 Then Goto 99
  261.    If K=12 and T=1 Then Goto 106
  262.    If K=13 and T=1 Then Goto 104
  263.    If K=14 and T=1 Then Goto 157
  264.    If K=15 and T=1 Then Goto 109
  265.    If K=16 and T=1 Then Goto 110
  266. Loop 
  267. '
  268. 157
  269. M$="Compact:comp.Txt" : Paper 14 : Gosub TS : Goto 105
  270. '
  271. '
  272. 106
  273. Fade 13
  274. Wait 50
  275. Unpack 10 To 6
  276. Reserve Zone(25)
  277. Set Zone 11,22,225 To 76,245
  278. Set Zone 12,129,225 To 184,245
  279. Set Zone 13,236,225 To 288,245
  280. Set Zone 14,345,225 To 398,245
  281. Set Zone 15,452,225 To 504,245
  282. Set Zone 16,557,225 To 611,245
  283. Do 
  284.    K=Mouse Zone
  285.    T=Mouse Key
  286.    If K=11 and T=1 Then Goto 99
  287.    If K=12 and T=1 Then Goto 107
  288.    If K=13 and T=1 Then Goto 105
  289.    If K=14 and T=1 Then Goto 158
  290.    If K=15 and T=1 Then Goto 110
  291.    If K=16 and T=1 Then Goto 162
  292. Loop 
  293. '
  294. 158
  295. M$="Compact:shake.Txt" : Paper 14 : Gosub TS : Goto 106
  296. '
  297. 162
  298. Fade 13
  299. Load Iff "compact:PUDDLE",4
  300. Do 
  301.    T=Mouse Key
  302.    If T<>0 Then Cls : Goto 106
  303. Loop 
  304. Goto 106
  305. '
  306. 107
  307. Fade 13
  308. Wait 50
  309. Unpack 11 To 4
  310. Reserve Zone(25)
  311. Set Zone 11,22,225 To 76,245
  312. Set Zone 12,129,225 To 184,245
  313. Set Zone 13,236,225 To 288,245
  314. Set Zone 14,345,225 To 398,245
  315. Set Zone 15,452,225 To 504,245
  316. Do 
  317.    K=Mouse Zone
  318.    T=Mouse Key
  319.    If K=11 and T=1 Then Goto 99
  320.    If K=12 and T=1 Then Goto 108
  321.    If K=13 and T=1 Then Goto 106
  322.    If K=14 and T=1 Then Goto 105
  323.    If K=15 and T=1 Then Goto 103
  324. Loop 
  325. '
  326. 108
  327. Fade 13
  328. Wait 50
  329. Unpack 12 To 5
  330. Reserve Zone(25)
  331. Set Zone 11,22,225 To 76,245
  332. Set Zone 12,129,225 To 184,245
  333. Set Zone 13,236,225 To 288,245
  334. Set Zone 14,345,225 To 398,245
  335. Set Zone 15,452,225 To 504,245
  336. Set Zone 16,557,225 To 611,245
  337. Do 
  338.    K=Mouse Zone
  339.    T=Mouse Key
  340.    If K=11 and T=1 Then Goto 99
  341.    If K=12 and T=1 Then Goto 109
  342.    If K=13 and T=1 Then Goto 107
  343.    If K=14 and T=1 Then Goto 159
  344.    If K=15 and T=1 Then Goto 107
  345.    If K=16 and T=1 Then Goto 160
  346. Loop 
  347. '
  348. 159
  349. M$="Compact:sale.Txt" : Paper 14 : Gosub TS : Goto 108
  350. '
  351. 160
  352. Fade 13
  353. Load Iff "compact:GLASS",4
  354. Do 
  355.    T=Mouse Key
  356.    If T<>0 Then Cls : Goto 108
  357. Loop 
  358. Goto 108
  359. '
  360. 109
  361. Fade 13
  362. Wait 50
  363. Unpack 13 To 5
  364. Reserve Zone(25)
  365. Set Zone 11,22,225 To 76,245
  366. Set Zone 12,129,225 To 184,245
  367. Set Zone 13,236,225 To 288,245
  368. Set Zone 14,345,225 To 398,245
  369. Set Zone 15,452,225 To 504,245
  370. Set Zone 16,557,225 To 611,245
  371. Do 
  372.    K=Mouse Zone
  373.    T=Mouse Key
  374.    If K=11 and T=1 Then Goto 99
  375.    If K=12 and T=1 Then Goto 110
  376.    If K=13 and T=1 Then Goto 108
  377.    If K=14 and T=1 Then Goto 105
  378.    If K=15 and T=1 Then Goto 106
  379.    If K=16 and T=1 Then Goto 163
  380. Loop 
  381. '
  382. 163
  383. Fade 13
  384. Load Iff "compact:HOL",4
  385. Do 
  386.    T=Mouse Key
  387.    If T<>0 Then Cls : Goto 164
  388. Loop 
  389. 164
  390. Fade 13
  391. Load Iff "compact:GLASS",5
  392. Do 
  393.    T=Mouse Key
  394.    If T<>0 Then Cls : Goto 109
  395. Loop 
  396. Goto 109
  397. '
  398. 110
  399. Fade 13
  400. Wait 50
  401. Unpack 14 To 3
  402. Reserve Zone(25)
  403. Set Zone 11,22,225 To 76,245
  404. Set Zone 12,129,225 To 184,245
  405. Set Zone 13,236,225 To 288,245
  406. Set Zone 14,345,225 To 398,245
  407. Do 
  408.    K=Mouse Zone
  409.    T=Mouse Key
  410.    If K=11 and T=1 Then Goto 99
  411.    If K=12 and T=1 Then Goto 107
  412.    If K=13 and T=1 Then Goto 109
  413.    If K=14 and T=1 Then Goto 105
  414. Loop 
  415. '
  416. '
  417. Reserve Zone(25)
  418. Set Zone 16,557,225 To 611,245
  419. Do 
  420.    K=Mouse Zone
  421.    T=Mouse Key
  422.    If K=16 and T=1 Then Goto 16
  423. Loop 
  424. '
  425. '
  426. 876
  427. M$="Compact:intro.Txt" : Paper 14 : Gosub TS : Goto 99
  428. '
  429. 881
  430. M$="Compact:readme" : Paper 14 : Gosub TS : Goto 99
  431. '
  432. '
  433. TS:
  434.    Global M$
  435.    Curs Off : Cls 
  436.    Open In 1,M$
  437.    887
  438.    X=2
  439.    Do 
  440.       If Eof(1) Then Goto 882
  441.       Set Input 10,-1
  442.       Line Input #1,N$
  443.       Locate 4,X : Print N$
  444.       X=X+1
  445.       If X=27 Then Goto 883
  446.       If Key State(50) Then Gosub PTS
  447.    Loop 
  448.    '
  449.    '
  450.    883
  451.    Locate 1,29 : Centre "**  LEFT MOUSE KEY FOR MORE TEXT OR RETURN **"
  452.    Do 
  453.       T=Mouse Key
  454.       If T<>0 Then Cls : Goto 887
  455.    Loop 
  456.    Wait Key 
  457.    882
  458.    Do 
  459.       Locate 1,29 : Centre "**  LEFT MOUSE KEY FOR MORE TEXT OR RETURN - 'X' TO PRINT **"
  460.       T=Mouse Key
  461.       If T<>0 Then Goto 21
  462.       If Key State(50) Then Gosub PTS
  463.    Loop 
  464.    21
  465.    Close 1
  466. Return 
  467. '
  468. PTS:
  469.    Cls : Locate 0,15 : Paper 6 : Centre "** PRINTER ON, PAPER IN, PRESS MOUSE BUTTON **"
  470.    Do 
  471.       T=Mouse Key
  472.       If T<>0 Then Goto 2129
  473.    Loop 
  474.    2129
  475.    Close 1
  476.    Curs Off : Cls 
  477.    Open In 1,M$
  478.    Do 
  479.       If Eof(1) Then Goto 1882
  480.       Set Input 10,-1
  481.       Line Input #1,M$
  482.       Locate 4,X : Lprint M$
  483.    Loop 
  484.    1882
  485.    Do 
  486.       Locate 1,15 : Paper 4 : Centre "**  LEFT MOUSE KEY TO EXIT **"
  487.       T=Mouse Key
  488.       If T<>0 Then Goto 2121
  489.    Loop 
  490.    2121
  491. Return